home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
CUGUK
/
C048.ZIP
/
XLISPLSP.ZIP
/
FACT.LSP
next >
Wrap
Lisp/Scheme
|
1988-02-12
|
77b
|
4 lines
(defun fact (n)
(cond ((= n 1) 1)
(t (* n (fact (- n 1))))))